Option Explicit
Sub B_Sample021()
    Dim myRng As Range
    On Error Resume Next
       Set myRng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    MsgBox Not myRng Is Nothing
    Set myRng = Nothing		'
End Sub
